!> 耐波性常数
module seakeeping_constants

    use seakeeping_kinds, only: wp => sk_real_kind
    implicit none

    private
    public :: pi, pi2, g, rho_air, rho_water, p_atm, kn2ms, ms2kn

    real(kind=wp), parameter :: pi = acos(-1.0_wp)
    real(kind=wp), parameter :: pi2 = 2.0_wp*pi
    real(kind=wp), parameter :: g = 9.80665_wp
    real(kind=wp), parameter :: rho_water(2) = [1000.0_wp, 1025.0_wp]
    real(kind=wp), parameter :: rho_air = 1.205_wp
    real(kind=wp), parameter :: p_atm = 101325.0_wp
    real(kind=wp), parameter :: kn2ms = 1852.0_wp/3600.0_wp
    real(kind=wp), parameter :: ms2kn = 3600.0_wp/1852.0_wp

end module seakeeping_constants
